home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
aminet2.lha
/
AminetRctDE
< prev
next >
Wrap
Text File
|
1998-06-23
|
2KB
|
44 lines
IF c > 0 THEN DO
test=RTEZREQUEST(MSG_README,MSG_README_GAD,,"rt_pubscrname="pubscreen)
read = rtresult
IF read THEN div = 5
ELSE div = 10
IF c/div = TRUNC(c/div) THEN nummails = c/div
ELSE nummails = TRUNC(c/div)+1
DO mails = 0 to nummails-1
CALL Open('mailout','T:FTPMail.tmp','W')
CALL WriteLn('mailout','begin')
CALL WriteLn('mailout','uuencode')
start = mails*div +1
end = div * (mails+1)
IF c - end < 0 THEN
end = c - (div * mails)
DO mc = start to end
d = filenum.mc
dir = STRIP(dir.d)||'/'
file.d='pub/aminet/'||dir||file.d
CALL WriteLn('mailout','get 'file.d)
IF read THEN
DO
lgt = LENGTH(COMPRESS(file.d))-3
filer=LEFT(file.d,lgt)
CALL WriteLn('mailout','get 'filer'readme')
END
END
CALL WriteLn('mailout','quit')
CALL Close('mailout')
'MAILWRITE'
'WRITETO "ftp-mail@uni-paderborn.de"'
'WRITESUBJECT "Aminet Downloads"'
'WRITELETTER "T:FTPmail.tmp"'
'WRITEQUEUE'
END
test=RTEZREQUEST(MSG_ASKSEND,MSG_README_GAD,,"rt_pubscrname="pubscreen)
choice = rtresult
IF choice = 1 THEN 'MAILSENDALL'
END
END
cleanup()
ADDRESS COMMAND 'DELETE >NIL: T:FTPMail.*'
EXIT